<%dim id id=request.QueryString("id")%> <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from CompVisualize where id="&id,conn,1,1 %>
<% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select Title from Aboutus where Language='1' and Aboutusorder <100 order by Aboutusorder" rslist.open sql,conn,1,3 do while not rslist.eof %> <%rslist.movenext loop rslist.close set rslist=nothing %>
" class="title1"><%=rslist("Title")%>
成功案例
首页 >> 成功案例
　
<%=trim(rs("Explain"))%>
<%if trim(rs("CompVisualize"))<>"" then response.write "
" else response.Write "暂时没有图片！" end if%>